(pr-get-symbol): Define during compile.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b9932fe0074382aabcd47998a77864705256bcad..d251161489639c389a5c0762392abb6c94663186 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2003-02-08  Kim F. Storm  <storm@cua.dk>
+
+       * printing.el (pr-get-symbol): Define during compile.
+
 2003-02-07  Vinicius Jose Latorre <vinicius@cpqd.com.br>
 
        * printing.el: New file.

diff --git a/lisp/printing.el b/lisp/printing.el
index c53b41b84d5ab505bc3d7730054ad5cbfec2a8aa..eb55586591bb4071bd184956b463b577346e0c02 100644 (file)
--- a/lisp/printing.el
+++ b/lisp/printing.el
@@ -2344,13 +2344,14 @@ See `pr-ps-printer-alist'.")
        ,@body
        (kill-buffer temp))))
 
-
+(eval-and-compile
 (defun pr-get-symbol (name)
   ;; Recent versions of easy-menu downcase names before interning them.
   (and (fboundp 'easy-menu-name-match)
        (setq name (downcase name)))
   (or (intern-soft name)
       (make-symbol name)))
+)
 
 
 (defsubst pr-visible-p (key)